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X-11 Bliss-32 V4.0-7 Page 1 
SKSVMSMASTER: tt i sre MACCAL.BLI;1 (1) 
1 ZTITLE “EDTSMACCAL = macro call’ 


§ MODULE EDTSMACCAL ( ' Macro call 
pDENT = 'v04-000' ! File: MACCAL.BLI Edit: J8S1008 
= 


'® 
' COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


Ssss 
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- ALL RIGHTS RESERVED. 

He hal he fs gt ee UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'# INCLUSION OF T Ne ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t® COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'@ 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
ie 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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'e+ 
' FACILITY: EDT -=- The DEC Standard Editor 
i ABSTRACT: 
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Macro call 
i ENVIRONMENT: Runs at any access mode - AST reentrant 


Ww 


i AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 
i MODIFIED BY: 
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! 1-001 = Original. DJS |18-FEB-1981. This module was created by 
oxtrocting routine EDTSSMAC_CALL from module EDTCTR. 

: Regularize headers and fix file and module name. JBS 04-Mar-1981 
} 1-00 = Remove L_LINE. Ad 1-0 etait 1 
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Replace C giINe. 1 =Dec-81 

Mgnt ry Phony so that EDTSSEXE yen -NOOVERLAY can 
: ae th s mdoule back into memory after” Ae macro has been executed. JBS 10-Mar-1982 
' 1-006 - sive and restore the command Line over 9,neece colts as? another 
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$ and can be after the macro name. -Jun-19 
! 1-007 - See eit a control C was found ong reset dh. unter STS 16-Jul-1982 
i 1-008 - Improve the appearance of the Listing. JBS 14-Jun-1983 
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EDISSMAC CALL = macro call 1o-808=} 382 9:98:08 DTEKSVMGMASTERSCEDT Sac SMACCAL.BLI:1 ° esd 
ZSBTTL “EDTSSMAC_CALL = macro call’ 


GLOBAL ROUTINE EDTSSMAC_CALL ( ! Macro call 
! Address of the macro 
) : NOVALUE = 


Se 


ung 


H 1 ; 
3 1 ‘ 
3 1 ‘ 
; 1 ‘ 
3 1 ‘ 
; 1 : 
; F 1 {4 : 
3 : ! FUNCTIONAL DESCRIPTION: : 
; 101 1; Call a macro. A macro is a buffer which contains Line-mode : 
3 : ! } commands. : 
; : ¢ : ; FORMAL PARAMETERS: ; 
; ' : : MAC Address of the macro : 
3 198 1 ! IMPLICIT INPUTS: : 
3; 1 1 } ‘ 
; 110 }} EDTSSA_CUR_BUF : 
; (111 : 1! EDTSSA_MAC_BUF : 
3 1g : 1! EDTSSA_CMD_BUF : 
3 T5 : 1! EDTS$G_CMD_LEN : 
; (114 : 1! EDTSST_CMD_BUF : 
; a : ; H EDTSSA_CMD_END : 
; 17 : ' IMPLICIT OUTPUTS: : 
; 119 : 1! EDTSSA_CUR_BUF : 
; 120 690 1! EDTSSA_MAC_BUF F 
: 121 691 1! EDTSSA_CMD_BUF 3 
3; 1 ; 692 1! EDTSSA_CMD_END : 
ae 693 1! EDT$$G_CC_BONE : 
: 126 694 1! : 
3 Ye 695 1 ! ROUTINE VALUE: ; 
, ¥ $ 24) 1! 3 
5 yy 63 lS NONE : 
» % ; $43 +: : 
; ' : : } SIDE EFFECTS: : 
ie) 701 1! Saves and restores the command Line. : 
3 § 7 § 1? 3 
. 7 1 !-- : 
 F 7 1 : 
; : 5 5 BEGIN : 
3; (1 7 EXTERNAL ROUTINE : 
a 708 EDTSSEXE_CMD_ NOOVERLAY ! Same as EDTSSEXE_CMD but no overlay analysis F} 
; 139 709 EDT$SRD_CURLN : NOVALUE, ; 
3; 140 710 EDTSSTOP_BUF : NOVALUE, : 
: «141 711 EDTSSALO_HEAP, ! Allocate heap storage 3 
3 166 ay EDTSSDEA_HEAP : NOVALUE, ! Deallocate heap storage ; 
3 re ay EDTSSFAT_MSG : NOVALUE; ! Format a message ; 
3; «4145 715 exteos : 
; 166 rg EDT$$G_CC_DONE, : 
; (14 71 EDT$$A_CUR_BUF, ! Current tbcb : 
3; «(148 0718 EDTS$G_CMD_LEN : 
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! Current macro buffer pointer 
' Pointer to the current command 


$A_CMD- BUF, 
: ! End of the current command 


SA_CMD-END; 


“MACRO, 
SAVE CAD _BUF 
CMD-END 
CHD TEXT : REF VECTOR C, BYTE), 
CMD-LENGTH; 
|. MESSAGES (CINSMEM)) ; 
Save the current command Line. 
" SAVE_CMD_BUF = .EDTSSA_CMD_BUF; 
SAVE-CMD-END = .EDTSSA~CMD~END; 
CMD_CENGTH = CHSDIFF (CHSPCUS (.SAVE_CMD_END, 1), .SAVE_CMD_BUF); 
IF (.CMD_LENGTH GTR 0) 
BEGIN 
IF EDTSSALO_HEAP (CMD_LENGTH, CHD_TEXT) 


_ CHSMOVE (.CMD_LENGTH, .SAVE_CMD_BUF, .CMD_TEXT) 


BEGIN 
EDTSSFMT_MSG (EDTS_INSMEM); 
RETURN; 
END; 
END; 


i Point the command processor to the macro without destroying 
the current buffer or the current macro. 


C 
+ 
SAVE_TBCB = .EDTS$A_CUR_BUF ; 
EDTS$SA_CUR BUF = .MAC; 
EDTS$$TOP BOF (); 
EDTS$A_COR BUF = .SAVE_TBCB; 
EDTSSRB_CURLN (); 
SAVE MACRO = .EDTSSA_MAC_BUF; 
, EDTSSA_MAC_BUF = .MAT; 
a 
+ 


'¢ 


Execute the commands in the specified buffer. 
STATUS = EDTSSEXE_CMD_NOOVERLAY (INP_MACRO); 
; Restore the former macro. 

EDTSSA_MAC_BUF = .SAVE_MACRO; 
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TB 000 EDTSSMAC ALL = macro call 1 ~3007} 38% 9:92:08 VIEKSVMGRASTERSCEDT SRCSMACCAL.BLI;1 oF asi 
; q : Restore the former command Line contents, if any. 
; 7 " EDTSSA_CMD_BUF = .SAVE_CMD_BUF; 
: 30 f ; EDTSSA_CMD-END = .SAVE-CMD-END; 
; if 7 IF (.CMD_LENGTH GTR 0) 
3 18 f THEN ‘ 
: 21 7 CHSMOVE (.CMD_LENGTH, .CMD_TEXT, .SAVE_CMD_BUF); 
: 215 785 EDTSSDEA_HEAP™ (CMD_LENGTH, CMD_TEXT); 
; : , § END; 
; 21 7 : IF (.STATUS EQL 2) ! if we saw a control 
3 1 7 THEN 
i 320 790 BEGIN 
; ¢ 138 IF (.EDTSS$A_CMD_END NEQ .EDTSSA_CMD_BUF) THEN EDT$$G_CC_DONE = 1; 
: 226 0794 EDTSS$A_CMD_BUF = EDTSST_CMD_BUF; 
; 5 795 EDTS$SA-CMD-END = .EDTS$A_CMO_BUF; 
; $ 796 CHSWCHAR (ZC'!*, .EDTSS$A~CMD~END); 
: 79 END; 
: 228 0798 
3 9 799 END; ! of routine EDTSMAC_CALL 
-TITLE EDTSMACCAL EDTSMACCAL = macro call 
"IDENT \V04-0 
.EXTRN EDTSSEXE_CMD_NOOVERLAY 
“EXTRN EDTSSRD_CURLA, EDTS$TOP_BUF 
-EXTRN EDTSSALO_HEAP, EDTSS$DEA~HEAP 
"EXTRN EDTSSFMT“MSG, EDT$$G_CC~DON 
SEXTRN EDTS$A_COR_BUF, EDT$SG_CMD_LEN 
-EXTRN EDTSST-CMD-BUF, EDTS$SA_MAC BUF 
-EXTRN EDTSSA~CMD-BUF, EDT$SA_CMD—END 
EXTRN EDTS_IRSM 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 .ENTRY EDTSSMAC CALL, Save R2,R3,R4,R5,RO,R7,RB,~ ; 0664 
B 000000006 9E 00 02 MOVAB EDfTSS$A‘CUR_BUF, R11 : 
A 0 6 06 3 MOVAB EDTS$A-CHD_BUF R10 ; 
9 G 19 MOV EDTS A-CMD-END, R9 : 
g C 1 SUBL2 4&8, SP ; 
6A D 1A MOV. EDTSSA_CMD_BUF, SAVE_CMD_BUF : 07 7 
4 $9 D 1D MOVL. EDTSSA~CMDEND, SAVE~CMD~END : 0738 
50 6 7 f 0 SUBL3 SAVE CAD BOF, SAVE_CAD_END, RO ; 0739 
04 AE 01 A i 4 MOVAB 1(ROY, CAD_LENGTH ; 
: 1 9 BLEQ 2$ > 0741 
—E od B PUSHL SP > 0745 
08 AE OF PUSHAB CHD _LENGTH ; 
000000006 iH Q F CALLS a. EDT SALO_HEAP : 
00 BE é 04 AE $ A MOVC3 GRO _LENGTH, (SAVE_CMD_BUF), @CMD_TEXT + 0747 
OE 40 RB $ ; 


0 000000006 or . DTS_INSMEM ; 0750 


000000006 cays . EDTSSFMT_MSG 


— 
e 
wv 
m>cC 
eer oak 72) 
x= 
a= 


04 


™~m 
wr 
=z 
o 
< 
- 
m 
LJ 
~ 
Sad 
iaae 
Pad 
- 
wn 
es 
a 
oc 
;. 
wm 
> 
< 
a 
Ss 
@o 
o 
ow 


0 
52 
000000006 00 
000000006 
sovovenye 
000000006 
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6A 
69 


CALLS aye ‘prssp pm _NOOVERLAY 
MOVL SAVE_MACRO, EDTS$SA_MAC_BUF 
MOVL SAVE_CMD_BUF, EDTSSA_CAD_BUF 
MOVL SAVE~ CMD END, EDTSSAT CMD-END 
TSTL MD_CENGTH 


B 
MOVC3 CMD_LENGTH, @CMD_TEXT, (SAVE_CMD_BUF) 


04 
67 00 BE 04 
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08 MD_LENGTH 
000000006 00 CALLS #2, EDTSSDEA_HEAP 
3$: CMPL Atus, #2 
CMPL §_ EDTSSA_CMD_END, EDTSS$A_CMD_BUF 
000000006 90 gf 7S8-CC Done 
6A 000000006 T_CMD"BUF, EDT$$A_CMD_BUF 
“(mM p “BUF ; EDT$$A~CMD~END 


ie ai 


4$: MOVAB 
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; Routine Size: 201 bytes, Routine Base: _EDTSCODE + 0000 


: 230 0800 1 
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3; Routine Size: 


; 269 
; 270 
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EDTSSLOAD_MACCAL = load this module into memory 1 = ep-19 4 9:90:88 DLEKSVMGMASTERSCEDT  SRCTMACCAL.BLI:1 ’ (4) 
1 ! ZSBTTL “EDTSSLOAD_MACCAL = Load this module into memory' 
j 1 GLOBAL ROUTINE EDTSSLOAD_MACCAL ! Load this module into memory 
4 1 : NOVALUE = 
> s 
1 tee 
! FUNCTIONAL DESCRIPTION: 
08 1 ! This routine has no function. It exists as an entry point so that 
i ae EDTSSEXE_CMD_NOOVERLAY can call this module back into memory before 
1 ! returning to it. 
1§ ' FORMAL PARAMETERS: 
815 1! NONE 
518 1! 
17 1°! IMPLICIT INPUTS: 
18 #61! 
19 1! NONE 
0820 1! 
0821 1 ! IMPLICIT OUTPUTS: 
ee ¢ 7% 
8 1! NONE 
824 1! 
825 1 ! ROUTINE VALUE: 
8 § 1! 
8 77 NONE 
0828 1! 
8 9 1 ! SIDE EFFECTS: 
830 1! 
ett 7 NONE 
08 § 1! 
8335 1 !-- 
834 1 
835 § BEGIN 
836 0 
0837 1 END; ! of routine EDTS$LOAD_MACCAL 


0000 00000 «ENTRY EDTSS$LOAD_MACCAL, Save nothing H 
04 00002 RET : 
3 bytes, Routine Base: _EDTSCODE + 00C9 


0838 1 
0839 1 !<BLF/PAGE> 


v04 


Mm 5 
R000 Eptes GADCMACCAL © fas this module into memory 1 1278 4 71382 9}: $f: 93 ST KSUMGMAST ERE Bt SRCSMACCAL.BLI:1 2 (sh 
; I 9 1 END ! of module EDTSMACCAL 
; zr OR 1 
3; 274 42 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 204 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ce ee Ee singe! Se Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
> _$255$DUA28: FED DT.SRCJEDT.L32;1 377 2 0 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:MACCAL/OBJ=OBJ$:MACCAL MSRC$:MACCAL.BLI/UPDATE=(ENH$:MACCAL) 
Btse: 204 code + 0 data bytes 
un Time 00:14.5 


pkey Hees 00:18.1 
Lines/CPU Min: 3496 
Lexemes/CPU-Min: 9707 
panety Used: 91 pages 
Compilation Complete 
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